home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VCELLARY.S
< prev
next >
Wrap
Text File
|
1993-03-16
|
1KB
|
49 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;* Cell array. What a weird function.
;*------------------------------------------------------------------------
globl _v_cellarray
_v_cellarray:
; .cargs #8,handle.w,pxy.l,rowlen.w,elused.w,numrows.w,wrmode.w,colarray.l
handle = 8
pxy = 10
rowlen = 14
elused = 16
numrows = 18
wrmode = 20
colarray = 22
link a6,#0
move.w numrows(a6),d0 ;* Save numrows and number of
move.w elused(a6),d1 ;* elements used for intin count
move.w wrmode(a6),-(sp) ;* calculation later. Stack the
move.w d0,-(sp) ;* extra contrl parms first.
move.w d1,-(sp)
move.w rowlen(a6),-(sp)
mulu d1,d0 ;* Calc intin count=numrows*elused.
; VContrl #10,,#2,d0
move.w handle(a6),-(sp) ; contrl[6]
clr.l -(sp) ; contrl[5,4]
move.w d0,-(sp) ; contrl[3]
subq.l #2,sp ; contrl[2]
move.w #2,-(sp) ; contrl[1]
move.w #10,-(sp) ; contrl[0]
subq.l #8,sp ;* -> ptsout, intout
move.l pxy(a6),-(sp) ;* -> ptsin
move.l colarray(a6),-(sp) ;* -> intin
pea 16(sp) ;* -> contrl
jmp vdicall
end